home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_96793.txt < prev    next >
Text File  |  1989-08-22  |  11KB  |  515 lines
  1. -- background: 96793 from stack: in
  2. -- bmap block id: 97106
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 1.2.2 Practice4
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 3
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("hiliter" & i) to true
  14.   else set the hilite of bg btn ("hiliter" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "CorrectAnswer"
  26.   hide fld "MasterFeedback"
  27.   hide bg btn "Done"
  28.   unlock screen
  29. end hideFeedback
  30.  
  31. on showFeedback
  32.   lock screen
  33.   show fld "Feedback1"
  34.   show fld "Feedback2"
  35.   show fld "Feedback3"
  36.   show fld "Feedback4"
  37.   show fld "CorrectAnswer"
  38.   show fld "MasterFeedback"
  39.   show bg btn "Done"
  40.   unlock screen
  41. end showFeedback
  42.  
  43. on feedback
  44.   global answerTracker
  45.   lock screen
  46.  
  47.   get last char of the short name of the target
  48.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  49.     -- don't overwrite if Q has been answered
  50.     if it = line 1 of fld "key" then
  51.       -- this is the correct answer
  52.       put "y" into line (line 2 of fld "key") of answerTracker
  53.     else put "n" into line (line 2 of fld "key") of answerTracker
  54.   end if
  55.  
  56.   put fld ("feedback" & it) into fld "masterFeedback"
  57.   show fld "masterFeedback"
  58.   show bg btn "Done"
  59.  
  60.   unlock screen
  61. end feedback
  62.  
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 01
  67. -- high flags: 0000
  68. -- rect: left=18 top=1 right=38 bottom=442
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 156
  73. -- text size: 24
  74. -- style flags: 10240
  75. -- line height: 32
  76. -- part name: Title
  77.  
  78.  
  79. -- part 5 (field)
  80. -- low flags: 81
  81. -- high flags: 0001
  82. -- rect: left=423 top=0 right=13 bottom=466
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 65535
  86. -- font id: 4
  87. -- text size: 9
  88. -- style flags: 0
  89. -- line height: 12
  90. -- part name: CardTitle
  91.  
  92.  
  93. -- part 14 (button)
  94. -- low flags: 00
  95. -- high flags: 0000
  96. -- rect: left=443 top=5 right=72 bottom=512
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Instant Reference
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   instantReference "1.2.2"
  108. end mouseUp
  109.  
  110.  
  111. -- part 15 (button)
  112. -- low flags: 00
  113. -- high flags: 2000
  114. -- rect: left=480 top=143 right=172 bottom=511
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 1310 / 1310
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Student Services
  123. ----- HyperTalk script -----
  124. on mousedown
  125.   SSpopUp
  126. end mousedown
  127.  
  128. on mouseup
  129.   if the mouseloc is not within the rect of me then exit to hyperCard
  130.   doSS
  131. end mouseup
  132.  
  133.  
  134.  
  135. -- part 16 (button)
  136. -- low flags: 00
  137. -- high flags: 2000
  138. -- rect: left=482 top=176 right=205 bottom=511
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 162 / 162
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Help
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   Help
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 17 (button)
  155. -- low flags: 00
  156. -- high flags: 2000
  157. -- rect: left=482 top=208 right=234 bottom=509
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 1234 / 1234
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Lesson
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   lesson "1.2.2"
  169. end mouseUp
  170.  
  171.  
  172. -- part 19 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=493 top=319 right=341 bottom=512
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 1237 / 1237
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Next
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   lock screen
  187.   go next
  188.   unlock screen with scroll left
  189. end mouseUp
  190.  
  191.  
  192. -- part 20 (field)
  193. -- low flags: 01
  194. -- high flags: 0000
  195. -- rect: left=16 top=38 right=65 bottom=445
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 156
  200. -- text size: 20
  201. -- style flags: 0
  202. -- line height: 26
  203. -- part name: Subtitle
  204.  
  205.  
  206. -- part 21 (field)
  207. -- low flags: 01
  208. -- high flags: 0000
  209. -- rect: left=16 top=70 right=110 bottom=443
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 0
  213. -- font id: 156
  214. -- text size: 16
  215. -- style flags: 0
  216. -- line height: 17
  217. -- part name: Question
  218.  
  219.  
  220. -- part 22 (field)
  221. -- low flags: 01
  222. -- high flags: 0000
  223. -- rect: left=16 top=114 right=134 bottom=444
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 0
  227. -- font id: 3
  228. -- text size: 10
  229. -- style flags: 256
  230. -- line height: 15
  231. -- part name: Instruction
  232.  
  233.  
  234. -- part 23 (field)
  235. -- low flags: 01
  236. -- high flags: 2004
  237. -- rect: left=67 top=139 right=184 bottom=447
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 0
  241. -- font id: 156
  242. -- text size: 16
  243. -- style flags: 0
  244. -- line height: 26
  245. -- part name: Answer1
  246.  
  247.  
  248. -- part 24 (field)
  249. -- low flags: 01
  250. -- high flags: 2004
  251. -- rect: left=67 top=182 right=227 bottom=447
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 0
  255. -- font id: 156
  256. -- text size: 16
  257. -- style flags: 0
  258. -- line height: 26
  259. -- part name: Answer2
  260.  
  261.  
  262. -- part 25 (field)
  263. -- low flags: 01
  264. -- high flags: 2004
  265. -- rect: left=67 top=225 right=270 bottom=447
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 0
  269. -- font id: 156
  270. -- text size: 16
  271. -- style flags: 0
  272. -- line height: 26
  273. -- part name: Answer3
  274.  
  275.  
  276. -- part 31 (button)
  277. -- low flags: 00
  278. -- high flags: A004
  279. -- rect: left=179 top=321 right=340 bottom=324
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: Answer
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   global answerTracker
  291.   lock screen
  292.   put "y" into line (line 2 of fld "key") of answerTracker
  293.   put fld "CorrectAnswer" into fld "MasterFeedback"
  294.   show fld "MasterFeedback"
  295.   show bg btn "Done"
  296.   unlock screen
  297. end mouseUp
  298.  
  299.  
  300. -- part 33 (button)
  301. -- low flags: 00
  302. -- high flags: 2000
  303. -- rect: left=478 top=319 right=341 bottom=498
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 1238 / 1238
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: Prev
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   lock screen
  315.   go prev
  316.   unlock screen with scroll right
  317. end mouseUp
  318.  
  319.  
  320. -- part 34 (field)
  321. -- low flags: 81
  322. -- high flags: 2007
  323. -- rect: left=8 top=36 right=94 bottom=231
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 0
  327. -- font id: 156
  328. -- text size: 16
  329. -- style flags: 0
  330. -- line height: 17
  331. -- part name: Feedback1
  332.  
  333.  
  334. -- part 36 (field)
  335. -- low flags: 81
  336. -- high flags: 2007
  337. -- rect: left=8 top=159 right=216 bottom=231
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 0
  341. -- font id: 156
  342. -- text size: 16
  343. -- style flags: 0
  344. -- line height: 17
  345. -- part name: Feedback3
  346.  
  347.  
  348. -- part 37 (field)
  349. -- low flags: 81
  350. -- high flags: 2007
  351. -- rect: left=8 top=219 right=277 bottom=231
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 0
  355. -- font id: 156
  356. -- text size: 16
  357. -- style flags: 0
  358. -- line height: 17
  359. -- part name: Feedback4
  360.  
  361.  
  362. -- part 39 (field)
  363. -- low flags: 81
  364. -- high flags: 2007
  365. -- rect: left=8 top=280 right=338 bottom=231
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 0
  369. -- font id: 156
  370. -- text size: 16
  371. -- style flags: 0
  372. -- line height: 17
  373. -- part name: CorrectAnswer
  374.  
  375.  
  376. -- part 52 (button)
  377. -- low flags: 00
  378. -- high flags: 2000
  379. -- rect: left=68 top=140 right=181 bottom=444
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 1
  383. -- font id: 0
  384. -- text size: 12
  385. -- style flags: 0
  386. -- line height: 16
  387. -- part name: Hiliter1
  388. ----- HyperTalk script -----
  389. on mouseUp
  390.   feedback
  391. end mouseUp
  392.  
  393.  
  394. -- part 53 (button)
  395. -- low flags: 00
  396. -- high flags: 2000
  397. -- rect: left=68 top=183 right=224 bottom=444
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 1
  401. -- font id: 0
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: Hiliter2
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.   feedback
  409. end mouseUp
  410.  
  411.  
  412. -- part 54 (button)
  413. -- low flags: 00
  414. -- high flags: 2000
  415. -- rect: left=68 top=226 right=267 bottom=444
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Hiliter3
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   feedback
  427. end mouseUp
  428.  
  429.  
  430. -- part 40 (field)
  431. -- low flags: 81
  432. -- high flags: 2004
  433. -- rect: left=147 top=132 right=304 bottom=356
  434. -- title width / last selected line: 0
  435. -- icon id / first selected line: 0 / 0
  436. -- text alignment: 0
  437. -- font id: 156
  438. -- text size: 16
  439. -- style flags: 0
  440. -- line height: 17
  441. -- part name: MasterFeedback
  442.  
  443.  
  444. -- part 41 (button)
  445. -- low flags: 80
  446. -- high flags: A002
  447. -- rect: left=215 top=279 right=296 bottom=284
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 0 / 0
  450. -- text alignment: 1
  451. -- font id: 0
  452. -- text size: 12
  453. -- style flags: 0
  454. -- line height: 16
  455. -- part name: Done
  456. ----- HyperTalk script -----
  457. on mouseUp
  458.   global answerTracker
  459.   lock screen
  460.   if line (line 2 of fld "key") of answerTracker = "y" then
  461.     -- question correctly answered
  462.     set the hilite of bg btn ("hiliter" & line 1 of fld "key") to true
  463.   end if
  464.   hide fld "MasterFeedback"
  465.   hide bg btn "Done"
  466.   unlock screen
  467. end mouseUp
  468.  
  469.  
  470. -- part 42 (field)
  471. -- low flags: 81
  472. -- high flags: 2007
  473. -- rect: left=8 top=97 right=155 bottom=231
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 0
  477. -- font id: 156
  478. -- text size: 16
  479. -- style flags: 0
  480. -- line height: 17
  481. -- part name: Feedback2
  482.  
  483.  
  484. -- part 51 (button)
  485. -- low flags: 00
  486. -- high flags: 2000
  487. -- rect: left=482 top=294 right=320 bottom=509
  488. -- title width / last selected line: 0
  489. -- icon id / first selected line: 1236 / 1236
  490. -- text alignment: 1
  491. -- font id: 0
  492. -- text size: 12
  493. -- style flags: 0
  494. -- line height: 16
  495. -- part name: Last Menu
  496. ----- HyperTalk script -----
  497. on mouseUp
  498.   go cd "Protocols P/1"
  499. end mouseUp
  500.  
  501.  
  502.  
  503. -- part 55 (field)
  504. -- low flags: 81
  505. -- high flags: 0002
  506. -- rect: left=0 top=303 right=337 bottom=86
  507. -- title width / last selected line: 0
  508. -- icon id / first selected line: 0 / 0
  509. -- text alignment: 0
  510. -- font id: 3
  511. -- text size: 12
  512. -- style flags: 0
  513. -- line height: 16
  514. -- part name: key
  515.